Changes the appearance of a control on the form to match the edit mode.
Syntax
Private Sub IAMExtensionPage_SetEditMode(ByVal EditMode As PPEDITMODES)
On Error GoTo error_handler
Dim bReadOnly As Boolean
bReadOnly = (EditMode = PPEM_READONLY)
If Not m_Designer Is Nothing Then
' Set the edit mode of the datasource
m_Designer.SetEditMode Me, EditMode, False
' Update the edit mode of the controls
Call m_Designer.EnableControl(ammDrawingNumber_BSTR)
End If
Exit Sub
error_handler:
MsgBox caption & " SetEditMode: " & Err.Description
End Sub